home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4385 / part3 / install.asc next >
Text File  |  1987-04-21  |  2KB  |  77 lines
  1. 10 rem EG extension installer
  2. 20 rem By Martin Cubitt
  3. 30 rem 15th October 1993
  4. 40 rem
  5. 50 rem Last update: 17/10/1993
  6. 60 rem
  7. 100 curs off : palette $0,$0,$0,$0,$0 : mode 0 : key off : hide : flash off 
  8. 110 pen 7
  9. 120 paper 8
  10. 130 centre " EG extension installer "
  11. 140 pen 9
  12. 150 paper 0
  13. 160 locate 0,5
  14. 170 centre "Select from one of the following"
  15. 180 pen 4
  16. 190 paper 6
  17. 200 locate 0,10
  18. 210 centre " 1. Install INTERPRETER extension "
  19. 220 locate 0,12
  20. 230 centre " 2. Install COMPILER extension "
  21. 240 locate 0,15
  22. 250 centre " 9. Exit "
  23. 260 pen 9
  24. 270 paper 0
  25. 280 locate 0,19
  26. 290 centre "Press the number of your choice"
  27. 300 wait vbl 
  28. 310 palette $113,$777,$0,$0,$632,$273,$321,$362,$231,$557,$666,$333
  29. 320 clear key 
  30. 330 repeat 
  31. 340  : OPTION=instr("129",inkey$)
  32. 350 until OPTION>0
  33. 360 on OPTION goto 1000,2000,9000
  34. 998 rem     ---------------------------------------------------------------
  35. 999 rem   * INSTALL: Interpreter extension *
  36. 1000 FILENAME$="eg.exw"
  37. 1010 FILESIZE=691
  38. 1020 BANK=5
  39. 1030 FOLDNAME$="STOS"
  40. 1040 gosub 3000
  41. 1050 goto 320
  42. 1998 rem    ---------------------------------------------------------------
  43. 1999 rem  * INSTALL: Compiler extension *
  44. 2000 FILENAME$="eg.ecw"
  45. 2010 FILESIZE=318
  46. 2020 BANK=6
  47. 2030 FOLDNAME$="COMPILER"
  48. 2040 gosub 3000
  49. 2050 goto 320
  50. 2998 rem    ---------------------------------------------------------------
  51. 2999 rem  * INSTALL: An extension *
  52. 3000 FILENAME$=upper$(FILENAME$)
  53. 3010 pen 11
  54. 3020 locate 0,23
  55. 3030 centre "Enter EXIT not to install "+FILENAME$
  56. 3040 pen 10
  57. 3050 paper 0
  58. 3060 MSG$="Select "+FOLDNAME$+" folder"
  59. 3070 show 
  60. 3080 SELECT$=file select$("*.*",MSG$)
  61. 3090 hide 
  62. 3100 locate 0,23
  63. 3110 centre space$(len("Enter EXIT not to install "+FILENAME$))
  64. 3120 if upper$(SELECT$)="EXIT" then 3160
  65. 3130 on error goto 3500
  66. 3140 bsave FILENAME$,start(BANK) to start(BANK)+FILESIZE
  67. 3150 on error goto 0
  68. 3160 return 
  69. 3499 rem Error, just return to folder select
  70. 3500 on error goto 0
  71. 3510 resume 3520
  72. 3520 boom 
  73. 3530 goto 3070
  74. 8999 rem    ---------------------------------------------------------------
  75. 9000 default
  76. 9010 end 
  77.